home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-09-03 | 35.5 KB | 1,429 lines |
- object frmProperties: TfrmProperties
- Left = 296
- Top = 201
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Remote Control CD Player Properties'
- ClientHeight = 422
- ClientWidth = 582
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- ShowHint = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl: TPageControl
- Left = 177
- Top = 21
- Width = 405
- Height = 374
- ActivePage = tbsAppearance
- Align = alClient
- TabOrder = 1
- OnChange = PageControlChange
- object tbsGeneral: TTabSheet
- Tag = 1
- Caption = '&Behaviour'
- TabVisible = False
- object Image4: TImage
- Left = 8
- Top = 8
- Width = 48
- Height = 48
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- object Label8: TLabel
- Left = 64
- Top = 24
- Width = 301
- Height = 25
- AutoSize = False
- Caption = 'Use these settings to control the behaviour of the CD player.'
- WordWrap = True
- end
- object optStartup: TRadioGroup
- Left = 8
- Top = 64
- Width = 185
- Height = 65
- HelpContext = 101
- Caption = 'On Startup'
- ItemIndex = 1
- Items.Strings = (
- 'Start in &tray immediately'
- 'Sho&w on screen')
- TabOrder = 0
- OnClick = AnyChange
- end
- object optOnInsert: TRadioGroup
- Left = 200
- Top = 64
- Width = 189
- Height = 65
- HelpContext = 102
- Caption = 'When a CD is inserted'
- ItemIndex = 1
- Items.Strings = (
- 'Start &playing immediately'
- '&Don'#39't play')
- TabOrder = 1
- OnClick = AnyChange
- end
- object GroupBox5: TGroupBox
- Left = 200
- Top = 200
- Width = 185
- Height = 49
- HelpContext = 109
- Caption = 'Default CD Drive'
- TabOrder = 4
- object cbDriveList: TComboBox
- Left = 12
- Top = 20
- Width = 65
- Height = 21
- HelpContext = 109
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 0
- OnChange = AnyChange
- end
- end
- object Database: TGroupBox
- Left = 8
- Top = 260
- Width = 185
- Height = 69
- Caption = 'CD Database'
- TabOrder = 5
- object cbFormatNative: TCheckBox
- Left = 8
- Top = 20
- Width = 173
- Height = 17
- HelpContext = 107
- Caption = 'Save in CDPlayer.&INI format'
- TabOrder = 0
- end
- object cbFormatCDDB: TCheckBox
- Left = 8
- Top = 44
- Width = 165
- Height = 17
- HelpContext = 108
- Caption = 'Save in CDDB &format'
- TabOrder = 1
- end
- end
- object GroupBox6: TGroupBox
- Left = 8
- Top = 144
- Width = 185
- Height = 105
- Caption = 'Options'
- TabOrder = 2
- object Label16: TLabel
- Left = 12
- Top = 72
- Width = 111
- Height = 13
- Caption = 'Skip amount (seconds):'
- end
- object Edit3: TEdit
- Left = 128
- Top = 68
- Width = 29
- Height = 21
- HelpContext = 105
- TabStop = False
- ReadOnly = True
- TabOrder = 0
- Text = '2'
- end
- object udSkipAmount: TUpDown
- Left = 157
- Top = 68
- Width = 12
- Height = 21
- HelpContext = 105
- Associate = Edit3
- Min = 1
- Max = 30
- Position = 2
- TabOrder = 1
- Wrap = False
- OnClick = udChange
- end
- object cbStopOnExit: TCheckBox
- Left = 12
- Top = 20
- Width = 141
- Height = 17
- HelpContext = 103
- Caption = 'Stop CD playing on e&xit'
- TabOrder = 2
- OnClick = AnyChange
- end
- object cbInsertNotify: TCheckBox
- Left = 12
- Top = 44
- Width = 153
- Height = 17
- HelpContext = 104
- Caption = '&RCCD is the default player'
- TabOrder = 3
- OnClick = AnyChange
- end
- end
- object GroupBox7: TGroupBox
- Left = 200
- Top = 144
- Width = 189
- Height = 53
- HelpContext = 106
- Caption = 'Double-Clicking the title bar:'
- TabOrder = 3
- object cmbDblClickAction: TComboBox
- Left = 8
- Top = 20
- Width = 165
- Height = 21
- HelpContext = 106
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Puts RCCD in the tray'
- 'Edits CD Play List'
- 'Opens RCCD Properties'
- 'Rolls display up/down')
- TabOrder = 0
- OnChange = AnyChange
- end
- end
- end
- object tbsAppearance: TTabSheet
- Tag = 2
- Caption = 'A&ppearance'
- TabVisible = False
- object Image3: TImage
- Left = 8
- Top = 8
- Width = 48
- Height = 48
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label19: TLabel
- Left = 64
- Top = 24
- Width = 301
- Height = 25
- AutoSize = False
- Caption = 'Use these settings to control the appearance of the CD player.'
- WordWrap = True
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 64
- Width = 381
- Height = 97
- Caption = 'Options'
- TabOrder = 0
- object cbShowToolTips: TCheckBox
- Left = 224
- Top = 20
- Width = 97
- Height = 17
- HelpContext = 204
- Caption = 'S&how tool tips'
- State = cbChecked
- TabOrder = 3
- OnClick = AnyChange
- end
- object cbShowToolbar: TCheckBox
- Left = 12
- Top = 20
- Width = 97
- Height = 17
- HelpContext = 201
- Caption = 'Show t&oolbar'
- State = cbChecked
- TabOrder = 0
- OnClick = AnyChange
- end
- object cbShowStatusBar: TCheckBox
- Left = 12
- Top = 68
- Width = 97
- Height = 17
- HelpContext = 203
- Caption = 'Show status &bar'
- State = cbChecked
- TabOrder = 2
- OnClick = AnyChange
- end
- object cbShowTrackBar: TCheckBox
- Left = 12
- Top = 44
- Width = 97
- Height = 17
- HelpContext = 202
- Caption = 'Show t&rack bar'
- State = cbChecked
- TabOrder = 1
- OnClick = AnyChange
- end
- object cbShowShortMenu: TCheckBox
- Left = 224
- Top = 44
- Width = 105
- Height = 17
- HelpContext = 205
- Caption = 'Show Short &menu'
- TabOrder = 4
- OnClick = AnyChange
- end
- end
- object GroupBox8: TGroupBox
- Left = 8
- Top = 288
- Width = 189
- Height = 61
- HelpContext = 206
- Caption = 'Title bar tool tip display'
- TabOrder = 2
- object cmbToolTipDisplay: TComboBox
- Left = 8
- Top = 24
- Width = 165
- Height = 21
- HelpContext = 206
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'None'
- 'Artist'
- 'Title'
- 'Track Name'
- 'Artist, Title'
- 'Artist, Title, Track Name'
- 'Artist, Track Name'
- 'Title, Track Name')
- TabOrder = 0
- OnChange = cmbToolTipDisplayChange
- end
- end
- object GroupBox11: TGroupBox
- Left = 8
- Top = 172
- Width = 385
- Height = 105
- Caption = 'Skin'
- TabOrder = 1
- object Label41: TLabel
- Left = 12
- Top = 48
- Width = 19
- Height = 13
- Caption = '&File:'
- FocusControl = edtSkinFileName
- end
- object btnSkinBrowse: TSpeedButton
- Left = 348
- Top = 62
- Width = 25
- Height = 25
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 555555555555555555555555555555555555555FFFFFFFFFF555550000000000
- 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
- B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
- 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
- 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
- 55555575FFF75555555555700007555555555557777555555555555555555555
- 5555555555555555555555555555555555555555555555555555}
- NumGlyphs = 2
- OnClick = btnSkinBrowseClick
- end
- object optSkinEnabled: TCheckBox
- Left = 12
- Top = 20
- Width = 69
- Height = 17
- HelpContext = 207
- Caption = '&Enabled'
- State = cbChecked
- TabOrder = 0
- OnClick = AnyChange
- end
- object optSkinStretch: TCheckBox
- Left = 88
- Top = 20
- Width = 61
- Height = 17
- HelpContext = 208
- Caption = '&Stretch'
- TabOrder = 1
- OnClick = AnyChange
- end
- object optSkinCenter: TCheckBox
- Left = 164
- Top = 20
- Width = 61
- Height = 17
- HelpContext = 209
- Caption = '&Centre'
- TabOrder = 2
- OnClick = AnyChange
- end
- object edtSkinFileName: TEdit
- Left = 12
- Top = 64
- Width = 333
- Height = 21
- HelpContext = 211
- TabOrder = 3
- OnChange = AnyChange
- end
- object optSkinTransparent: TCheckBox
- Left = 240
- Top = 20
- Width = 85
- Height = 17
- HelpContext = 210
- Caption = 'Trans&parent'
- TabOrder = 4
- OnClick = AnyChange
- end
- end
- end
- object tbsHotKeys: TTabSheet
- Tag = 3
- Caption = '&Hot Keys'
- TabVisible = False
- object Image1: TImage
- Left = 16
- Top = 16
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Transparent = True
- end
- object Label7: TLabel
- Left = 60
- Top = 20
- Width = 277
- Height = 33
- AutoSize = False
- Caption =
- 'Select the hot keys you want to use to control the Remote Contro' +
- 'l CD Player.'
- WordWrap = True
- end
- object Label13: TLabel
- Left = 96
- Top = 56
- Width = 249
- Height = 17
- AutoSize = False
- Caption = 'Hot keys are disabled whilst this tab is selected.'
- WordWrap = True
- end
- object Label17: TLabel
- Left = 60
- Top = 56
- Width = 33
- Height = 17
- AutoSize = False
- Caption = 'Note:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 84
- Width = 185
- Height = 257
- Caption = 'Playing Commands'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object Label1: TLabel
- Left = 44
- Top = 24
- Width = 23
- Height = 13
- Alignment = taRightJustify
- Caption = '&Play:'
- FocusControl = hkPlay
- end
- object Label2: TLabel
- Left = 36
- Top = 58
- Width = 33
- Height = 13
- Alignment = taRightJustify
- Caption = 'P&ause:'
- FocusControl = hkPause
- end
- object Label3: TLabel
- Left = 44
- Top = 92
- Width = 25
- Height = 13
- Alignment = taRightJustify
- Caption = '&Stop:'
- FocusControl = hkStop
- end
- object Label4: TLabel
- Left = 28
- Top = 126
- Width = 41
- Height = 13
- Alignment = taRightJustify
- Caption = '&Forward:'
- FocusControl = hkForward
- end
- object Label5: TLabel
- Left = 41
- Top = 160
- Width = 28
- Height = 13
- Alignment = taRightJustify
- Caption = '&Back:'
- FocusControl = hkBack
- end
- object Label14: TLabel
- Left = 4
- Top = 194
- Width = 65
- Height = 13
- Alignment = taRightJustify
- Caption = 'Skip F&orward:'
- FocusControl = hkSkipForward
- end
- object Label15: TLabel
- Left = 17
- Top = 228
- Width = 52
- Height = 13
- Alignment = taRightJustify
- Caption = 'Skip B&ack:'
- FocusControl = hkSkipBack
- end
- object hkPlay: THotKey
- Left = 72
- Top = 20
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24656
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 0
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkPause: THotKey
- Left = 72
- Top = 54
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24656
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 1
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkStop: THotKey
- Left = 72
- Top = 88
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24659
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 2
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkForward: THotKey
- Left = 72
- Top = 122
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24646
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 3
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkBack: THotKey
- Left = 72
- Top = 156
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24642
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 4
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkSkipForward: THotKey
- Left = 72
- Top = 190
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24655
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 5
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkSkipBack: THotKey
- Left = 72
- Top = 224
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24641
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 6
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- end
- object GroupBox3: TGroupBox
- Left = 204
- Top = 84
- Width = 185
- Height = 81
- Caption = 'Transport Commands'
- TabOrder = 1
- object Label6: TLabel
- Left = 16
- Top = 24
- Width = 27
- Height = 13
- Alignment = taRightJustify
- Caption = '&Eject:'
- FocusControl = hkEject
- end
- object Label9: TLabel
- Left = 14
- Top = 56
- Width = 29
- Height = 13
- Alignment = taRightJustify
- Caption = '&Close:'
- FocusControl = hkClose
- end
- object hkEject: THotKey
- Left = 48
- Top = 20
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24645
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 0
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- object hkClose: THotKey
- Left = 48
- Top = 52
- Width = 103
- Height = 19
- HelpContext = 301
- HotKey = 24643
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 1
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- end
- object GroupBox4: TGroupBox
- Left = 204
- Top = 172
- Width = 185
- Height = 81
- Caption = 'Hot Key Control'
- TabOrder = 2
- object Label18: TLabel
- Left = 14
- Top = 20
- Width = 116
- Height = 13
- Alignment = taRightJustify
- Caption = '&Enable/Disable hot keys'
- FocusControl = hkToggle
- end
- object hkToggle: THotKey
- Left = 48
- Top = 40
- Width = 103
- Height = 19
- HelpContext = 302
- HotKey = 24651
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 0
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- end
- object GroupBox10: TGroupBox
- Left = 204
- Top = 258
- Width = 185
- Height = 81
- Caption = 'CDDB'
- TabOrder = 3
- object Label28: TLabel
- Left = 14
- Top = 20
- Width = 122
- Height = 13
- Alignment = taRightJustify
- Caption = 'Reload CDDB Information'
- FocusControl = hkCDDBReload
- end
- object hkCDDBReload: THotKey
- Left = 48
- Top = 40
- Width = 103
- Height = 19
- HelpContext = 303
- HotKey = 24658
- InvalidKeys = [hcNone, hcShift]
- Modifiers = [hkShift, hkCtrl]
- TabOrder = 0
- OnEnter = AnyChange
- OnExit = AnyChange
- end
- end
- end
- object tbsAbout: TTabSheet
- Tag = 4
- Caption = '&Register'
- TabVisible = False
- object Image6: TImage
- Left = 4
- Top = 196
- Width = 144
- Height = 157
- AutoSize = True
- Picture.Data = {<image003.bmp>}
- PopupMenu = PopupMenu
- end
- object Label10: TLabel
- Left = 154
- Top = 200
- Width = 241
- Height = 53
- AutoSize = False
- Caption =
- 'Graeme Chandler is a software developer specialising in Delphi. ' +
- 'He has worked for many years in the health industry in Australia' +
- ' and has been contracting since 1996.'
- WordWrap = True
- end
- object Label11: TLabel
- Left = 156
- Top = 264
- Width = 31
- Height = 13
- Caption = 'E-mail:'
- FocusControl = Edit1
- end
- object Label12: TLabel
- Left = 156
- Top = 308
- Width = 67
- Height = 13
- Caption = 'Web Address:'
- FocusControl = Edit2
- end
- object lblVersion: TLabel
- Left = 64
- Top = 36
- Width = 125
- Height = 13
- Caption = 'Remote Control CD V1.5.2'
- end
- object Image2: TImage
- Left = 8
- Top = 8
- Width = 48
- Height = 48
- AutoSize = True
- Picture.Data = {<image004.bmp>}
- Transparent = True
- end
- object gbLabelFX1: TgbLabelFX
- Left = 64
- Top = 16
- Width = 48
- Height = 19
- LabelStyle = lsRaised
- Caption = 'RCCD'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- end
- object Bevel1: TBevel
- Left = 8
- Top = 176
- Width = 381
- Height = 5
- Shape = bsTopLine
- Style = bsRaised
- end
- object Label20: TLabel
- Left = 10
- Top = 76
- Width = 99
- Height = 17
- AutoSize = False
- Caption = 'RCCD is Freeware!'
- WordWrap = True
- end
- object lblRegister: TLabel
- Left = 10
- Top = 96
- Width = 359
- Height = 29
- AutoSize = False
- Caption =
- 'Please register to support further development and to be advised' +
- ' of updates and patches.'
- WordWrap = True
- end
- object Label21: TLabel
- Left = 264
- Top = 16
- Width = 104
- Height = 13
- Caption = 'Copyright 1995-98'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label22: TLabel
- Left = 264
- Top = 30
- Width = 110
- Height = 13
- Caption = 'Graeme K Chandler'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Edit1: TEdit
- Left = 156
- Top = 284
- Width = 121
- Height = 21
- TabStop = False
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- Text = 'jag@access.net.au'
- end
- object Edit2: TEdit
- Left = 156
- Top = 328
- Width = 185
- Height = 21
- TabStop = False
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- Text = 'http://www.gajits.au.com'
- end
- object btnVisitSite: TButton
- Left = 4
- Top = 136
- Width = 120
- Height = 25
- Caption = '&Visit my Web Site'
- TabOrder = 2
- OnClick = btnVisitSiteClick
- end
- object btnRegister: TButton
- Left = 260
- Top = 136
- Width = 120
- Height = 25
- Caption = '&Register'
- TabOrder = 3
- OnClick = btnRegisterClick
- end
- object btnRegNo: TButton
- Left = 132
- Top = 136
- Width = 120
- Height = 25
- Caption = '&Enter Registration No.'
- TabOrder = 4
- OnClick = btnRegNoClick
- end
- end
- object tbsCredits: TTabSheet
- Tag = 5
- Caption = 'Credits'
- TabVisible = False
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 41
- Width = 397
- Height = 323
- Align = alClient
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 0
- object Label34: TLabel
- Left = 64
- Top = 28
- Width = 61
- Height = 13
- Caption = 'Ed Hatherley'
- end
- object Label35: TLabel
- Left = 52
- Top = 12
- Width = 55
- Height = 13
- Caption = 'Graphics:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label36: TLabel
- Left = 64
- Top = 100
- Width = 70
- Height = 13
- Caption = 'Rob Borthwick'
- end
- object Label37: TLabel
- Left = 52
- Top = 64
- Width = 184
- Height = 13
- Caption = 'Testing and design suggestions:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label38: TLabel
- Left = 64
- Top = 116
- Width = 61
- Height = 13
- Caption = 'Ed Hatherley'
- end
- object Label39: TLabel
- Left = 92
- Top = 136
- Width = 87
- Height = 13
- Caption = 'and many others...'
- end
- object Image5: TImage
- Left = 16
- Top = 12
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image005.ico>}
- end
- object Image8: TImage
- Left = 16
- Top = 64
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image006.ico>}
- end
- object Label40: TLabel
- Left = 64
- Top = 84
- Width = 56
- Height = 13
- Caption = 'John Aldred'
- end
- object Label24: TLabel
- Left = 12
- Top = 236
- Width = 357
- Height = 41
- AutoSize = False
- Caption =
- 'Thanks to Ti Kan and Steve Scherf at CDDB for providing a free s' +
- 'ervice for users of CD players to enable downloading of CD artis' +
- 't and track information:'
- WordWrap = True
- end
- object Label25: TLabel
- Left = 12
- Top = 220
- Width = 39
- Height = 13
- Caption = 'CDDB:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label29: TLabel
- Left = 152
- Top = 84
- Width = 68
- Height = 13
- Caption = 'Jamie Conway'
- end
- object Label30: TLabel
- Left = 152
- Top = 100
- Width = 62
- Height = 13
- Caption = 'Jason Bance'
- end
- object Image9: TImage
- Left = 16
- Top = 171
- Width = 26
- Height = 26
- AutoSize = True
- Picture.Data = {<image007.bmp>}
- end
- object Bevel2: TBevel
- Left = 14
- Top = 169
- Width = 31
- Height = 30
- Style = bsRaised
- end
- object Label31: TLabel
- Left = 52
- Top = 168
- Width = 193
- Height = 13
- Caption = 'For his Freeware TCP component:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label32: TLabel
- Left = 52
- Top = 188
- Width = 81
- Height = 13
- Caption = 'Fran�ois PIETTE'
- end
- object Edit9: TEdit
- Left = 196
- Top = 24
- Width = 165
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 0
- Text = 'pegged@hurontel.on.ca'
- end
- object Edit4: TEdit
- Left = 196
- Top = 268
- Width = 165
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 1
- Text = 'http://www.cddb.com'
- end
- object Edit5: TEdit
- Left = 196
- Top = 184
- Width = 165
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 2
- Text = 'http://www.rtfm.be/fpiette'
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 397
- Height = 41
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object Label33: TLabel
- Left = 12
- Top = 8
- Width = 348
- Height = 19
- Caption = 'Many thanks to the following for their contribution:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- end
- end
- object tbsCDDB: TTabSheet
- Tag = 6
- Caption = 'tbsCDDB'
- TabVisible = False
- object Image7: TImage
- Left = 8
- Top = 8
- Width = 48
- Height = 48
- AutoSize = True
- Picture.Data = {<image008.bmp>}
- Transparent = True
- end
- object Label23: TLabel
- Left = 60
- Top = 12
- Width = 317
- Height = 41
- AutoSize = False
- Caption =
- 'CDDB is the CD Internet Database. Use these settings to control ' +
- 'how RCCD communicates with this database to download CD track in' +
- 'formation.'
- WordWrap = True
- end
- object Label26: TLabel
- Left = 8
- Top = 76
- Width = 95
- Height = 13
- Caption = 'Your e-mail address:'
- end
- object Label27: TLabel
- Left = 8
- Top = 104
- Width = 79
- Height = 13
- Caption = 'Selected Server:'
- end
- object edtEmail: TEdit
- Left = 108
- Top = 72
- Width = 213
- Height = 21
- HelpContext = 600
- TabOrder = 0
- OnChange = AnyChange
- end
- object edtServer: TEdit
- Left = 108
- Top = 100
- Width = 213
- Height = 21
- HelpContext = 601
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 1
- Text = 'cddb.cddb.com'
- OnChange = AnyChange
- end
- object btnChange: TButton
- Left = 324
- Top = 100
- Width = 62
- Height = 21
- HelpContext = 602
- Caption = '&Change'
- TabOrder = 2
- OnClick = btnChangeClick
- end
- object grpCDDBDowload: TRadioGroup
- Left = 12
- Top = 164
- Width = 177
- Height = 85
- HelpContext = 604
- Caption = 'Download from CDDB'
- ItemIndex = 1
- Items.Strings = (
- 'As required'
- 'Only when asked')
- TabOrder = 3
- OnClick = AnyChange
- end
- object btnCDDBTest: TButton
- Left = 112
- Top = 128
- Width = 125
- Height = 25
- HelpContext = 603
- Caption = 'Test Selected Server'
- TabOrder = 4
- OnClick = btnCDDBTestClick
- end
- object edtPort: TEdit
- Left = 8
- Top = 128
- Width = 73
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 5
- Visible = False
- OnChange = AnyChange
- end
- object GroupBox9: TGroupBox
- Left = 12
- Top = 256
- Width = 177
- Height = 97
- Caption = 'Notify me when'
- TabOrder = 6
- object optCDDBNotifyFailConnect: TCheckBox
- Left = 8
- Top = 20
- Width = 157
- Height = 17
- HelpContext = 606
- Caption = 'Connection fails'
- State = cbChecked
- TabOrder = 0
- OnClick = AnyChange
- end
- object optCDDBDownloadComplete: TCheckBox
- Left = 8
- Top = 68
- Width = 149
- Height = 17
- HelpContext = 608
- Caption = 'Download is complete'
- TabOrder = 2
- OnClick = AnyChange
- end
- object optCDDBNotifyFailDownload: TCheckBox
- Left = 8
- Top = 44
- Width = 157
- Height = 17
- HelpContext = 607
- Caption = 'Download fails'
- State = cbChecked
- TabOrder = 1
- OnClick = AnyChange
- end
- end
- object grpOptions: TGroupBox
- Left = 208
- Top = 164
- Width = 177
- Height = 49
- Caption = 'Options'
- TabOrder = 7
- object optDownloadStatus: TCheckBox
- Left = 12
- Top = 20
- Width = 145
- Height = 17
- HelpContext = 605
- Caption = 'Show download status'
- State = cbChecked
- TabOrder = 0
- end
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 395
- Width = 582
- Height = 27
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object Panel2: TPanel
- Left = 339
- Top = 0
- Width = 243
- Height = 27
- Align = alRight
- BevelOuter = bvNone
- Caption = 'Panel2'
- TabOrder = 0
- object btnOK: TButton
- Left = 4
- Top = 2
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- TabOrder = 0
- OnClick = btnOKClick
- end
- object btnCancel: TButton
- Left = 84
- Top = 2
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 1
- OnClick = btnCancelClick
- end
- object btnApply: TButton
- Left = 164
- Top = 2
- Width = 75
- Height = 25
- Caption = '&Apply'
- TabOrder = 2
- OnClick = btnApplyClick
- end
- end
- end
- object Panel9: TPanel
- Left = 0
- Top = 0
- Width = 582
- Height = 21
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 3
- end
- object Panel8: TPanel
- Left = 0
- Top = 21
- Width = 177
- Height = 374
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object tvCategory: TTreeView
- Left = 7
- Top = 1
- Width = 165
- Height = 371
- ReadOnly = True
- RightClickSelect = True
- HideSelection = False
- Indent = 19
- Items.Data = {
- 0300000027000000000000000000000001000000FFFFFFFF0000000002000000
- 0E52434344204265686176696F757223000000000000000000000002000000FF
- FFFFFF00000000000000000A417070656172616E636521000000000000000000
- 000003000000FFFFFFFF000000000000000008486F74204B6579731D00000000
- 0000000000000006000000FFFFFFFF0000000000000000044344444221000000
- 000000000000000004000000FFFFFFFF00000000010000000852656769737465
- 7220000000000000000000000005000000FFFFFFFF0000000000000000074372
- 6564697473}
- OnChange = tvCategoryChange
- TabOrder = 0
- end
- end
- object PopupMenu: TPopupMenu
- Left = 460
- Top = 4
- object mnuShowSplashScreen: TMenuItem
- Caption = '&Show Splash Screen'
- Checked = True
- OnClick = mnuShowSplashScreenClick
- end
- end
- object OpenPictureDialog: TOpenPictureDialog
- Filter =
- 'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
- 'ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*' +
- '.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced' +
- ' Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
- Left = 425
- Top = 339
- end
- end
-